SetOptions[$FrontEnd, "DynamicUpdating" -> True];
Manipulate[
Image@Table[
ImageData[slike[[i]]][[;;,360]],
50
],{i,1,Length@slike,1}]

prerez=Table[
ImageData[slike[[i]]][[;;,362]],
{i,1,Length@slike,1}];
Image@Round[Map[Norm, prerez, {2}]]

pot="c:\\Users\\gal\\Documents\\DRUGI PROGRAMI\\Wolfram Mathematica\\saška ura\\slike\\presekč3.png";
Export[pot,%369]